5 A=A+1
10 IFA=1THENLOAD"BITS.O",8,1
12 IFA=2THENLOAD"BITS.TXT",8,1
39 :
41 GOSUB 600
50 CLR:DIMA(300):POKE53280,.:POKE53281,.
55 SYS52650
99 :
100 PRINT"[147]"TAB(10)"HORIZONTAL SCROLL DEMO"
101 PRINTTAB(15)"BY JIM ROW"
103 PRINT"[154]  PLEASE ENTER THE TEXT THAT YOU WISH "
104 PRINT"  TO BE SCROLLED NOW.  254 CHARS MAX!"
105 PRINT"[164]";:X=1
110 GETA$:IFA$=""THEN110
120 IFA$=CHR$(13)THENPRINT"[157] ":GOTO 200
121 IFA$=CHR$(20)THENPRINT"[157] [157][157][164]";:X=X-1:GOTO110
123 IFA$="[147]" THEN 100
125 IFA$<" "ORA$>"Z"ANDA$<"[193]"ORA$>"[218]" THEN 110
130 IFX=256 THEN 110
140 X=X+1
175 PRINT"[157]"A$"[164]";
190 GOTO 110
191 :
192 :
200 SYS52650:NU=X:FORY=1TONU-1:POKE52949+Y,PEEK(1023+Y):A(Y)=PEEK(1023+Y):NEXT
201 POKE52949+NU,.:GOSUB600:POKE52933,255:SYS52650
205 PRINT"[147]    DO YOU WANT TO SAVE THE TEXT?"
206 GETA$:IFA$=""THEN206
207 IFA$="Y"ORA$="[217]"THEN210
208 IFA$="N"ORA$="[206]"THENSYS52650:GOTO360
209 GOTO 206
210 :
211 SYS52650: REM TURN OFF
212 PRINT"[147]     ENTER THE FILE NAME YOU WANT "
213 PRINT"          TO SAVE THE TEXT AS.":PRINT"    NAME :";
214 PRINT"[164][157]";:X=1:NM$=""
215 GETA$:IFA$=""THEN215
220 IFA$=CHR$(20)ANDX>1THENPRINT" [157][157][164][157]";:NM$=LEFT$(NM$,LEN(NM$)-1):X=X-1:GOTO 215
225 IFA$=CHR$(20)THEN 215
229 IFA$=CHR$(13) ANDX=1 THEN SYS52650:GOTO 205
230 IFA$=CHR$(13) THEN 290
235 IFA$<" "ORA$>"Z"ANDA$<"[193]"ORA$>"[218]"THEN215
236 IFA$="?"ORA$="*"ORA$="," THEN  215
247 IFX=16 THEN 215
250 X=X+1:
255 NM$=NM$+A$:PRINTA$"[164][157]";
260 GOTO 215
290 :
300 PRINT"[147]       PLEASE WAIT WHILE SAVING"
302 OPEN15,8,15,"R0:"+NM$+"="+NM$:INPUT#15,ER:CLOSE15
304 IFER<>63 THEN 350
310 PRINT"[147]  FILE ALREADY EXISTS! PRESS ANY KEY."
313 GETA$:IFA$=""THEN313
320 GOTO 212
350 OPEN2,8,2,NM$+",P,W"
351 PRINT#2,CHR$(214)+CHR$(206);
352 FORY=1TONU:PRINT#2,CHR$(A(Y));:NEXT:PRINT#2,CHR$(0);:CLOSE2
360 PRINT"[147]DO YOU WANT TO CREATE ANOTHER TEXT FILE?"
361 GETA$:IFA$=""THEN361
362 IFA$="Y"ORA$="[217]"THEN A=2:GOTO12
370 IFA$="N"ORA$="[206]"THEN 400
371 GOTO 361
400 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15
401 IFER<>63THEN PRINT"[147]":END
403 LOAD"HELLO CONNECT",8,1
599 REM       INITILIZE SCREEN
600 FORX=960TO1001:POKEX,32:NEXT:POKE52933,255:RETURN